Option Explicit
Sub F_Sample016()
    'Microsoft DAO 3.6 Object Library ]wޥζ
    'ոF_Data.xls F_Data01
    Dim myWsp      As DAO.Workspace
    Dim myCon      As DAO.Connection
    Dim myRst      As DAO.Recordset
    Dim myFileName As String
    Dim myCnc1     As String
    Dim myCnc2     As String
    Dim myCnc3     As String
    Dim myCnc4     As String
    Dim myCmd      As String
    Dim i          As Long
    myFileName = "F_Data.xls"                                'ŪJɮ
    myCnc1 = "ODBC;"
    myCnc2 = "DBQ=" & ThisWorkbook.Path & "\" & myFileName & ";"
    myCnc3 = "Driver={Microsoft Excel Driver (*.xls)};"
    myCnc4 = "FILEDSN=C:"
  
    myCmd = "SELECT * FROM [F_Data01$]"
    'myCmd = "SELECT * FROM [F_Data01$C1:f10]"
    'myCmd = "SELECT * FROM [F_Data01$] Where  >50"
    'myCmd = "SELECT * FROM [F_Data01$] Where Wr Like 's%'"
    'myCmd = "SELECT * FROM [F_Data01$A10:F20]"
    Set myWsp = CreateWorkspace("myWsp", "myName", "", dbUseODBC)
    Workspaces.Append myWsp
    Set myCon = myWsp.OpenConnection( _
        Name:="myConnection", _
        Options:=dbDriverNoPrompt, _
        Connect:=myCnc1 & myCnc2 & myCnc3 & myCnc4)
    Set myRst = myCon.OpenRecordset(myCmd)
    Worksheets.Add                                      'u@sW
    With myRst
        'W
        For i = 1 To .Fields.Count
            Cells(1, i).Value = .Fields(i - 1).Name
        Next
        'O
        Range("A2").CopyFromRecordset myRst
        .Close
    End With
    myCon.Close
    myWsp.Close
    Set myRst = Nothing                                         '
    Set myCon = Nothing
    Set myWsp = Nothing
End Sub


